home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 3 / DOS078A.dsk / PERMUTATIONS.bas < prev    next >
BASIC Source File  |  2012-02-16  |  697b  |  21 lines
  1. 1  REM ***********************
  2. 2  REM      PERMUTATIONS
  3. 3  REM       M.WIDMANN
  4. 4  REM ***********************
  5. 5  REM 
  6. 30  TEXT : CLEAR : HOME : VTAB 3: HTAB 10: INVERSE : PRINT "**PERMUTATION**": NORMAL : POKE 34,5: CALL  -936: PRINT 
  7. 40  PRINT "NUMBER OF ITEMS  ": INPUT "(ENTER'0'TO EXIT):";N
  8. 60  IF N = 0  THEN  GOTO 280
  9. 70  INPUT "SIZE OF GROUP  : ";D
  10. 90  IF D < = N  THEN  GOTO 130
  11. 110  PRINT : GOTO 40
  12. 130 P = 1:C = 1
  13. 150  FOR I = N -D +1 TO N
  14. 160  IF 10 ^35/I > = P  THEN  GOTO 190
  15. 170  PRINT "MORE THEN 10^35 PERMUTATIONS"
  16. 180  GOTO 280
  17. 190 P = P *I: NEXT 
  18. 210  FOR J = 2 TO D:C = C *J: NEXT 
  19. 240  PRINT : PRINT "PERMUTATIONS: ";P
  20. 250  PRINT "COMBINATIONS: ";P/C: PRINT : GOTO 40
  21. 280  END